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Out[738]= 


SetOptions[Plot, ImageSize - 8001; 

SetOptions [AudioPlot, ImageSize > 800]; 
SetOptions[ListLinePlot, ImageSize - 800]; 
SetOptions[ArrayPlot, ImageSize > 800]; 
SetOptions[MatrixPlot, ImageSize > 800]; 
SetOptions[Spectrogram, ImageSize - 800]; 
SetOptions[Histogram, ImageSize > 800]; 
SetOptions[ListDensityPlot, ImageSize - 800]; 


filePath = 
"/Volumes/External 1/uap/Videos/The San Diego Sphere___Full_Resolution_12- 
Minute Таре.пр4"; 


а = Audio[filePath] ; 
a = AudioTrim[a, 5]; 
а = AudioChannelMix[a, "Мопо"] ; 


(*ampLitude=AudioBLockMap [Max[.02,SqrteMean [872] ]&,а,{.01,.005}];*) 
(жа = AudioNormalize[a/Audio[amplitude] ] 5x) 
ad = AudioData[a]; 


AudioPlot [a] 
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hfc = Rescale@AudioLocalMeasurements[a, "HighFrequencyContent"] ; 
Quiet@AudioPlot[a, PlotRange > (А11, All}, Appearance > "DiscreteAbs", 
ColorFunction > Function[{x, у}, ColorData["SunsetColors"] @hfc[x]]] 
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in739)- ListLinePLot[PLus ee ад ЈАТ1, 55 44100], PlotRange > All, Axes > False] 
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in740)- Labeled [MatrixPlot [Log@Transpose@Normal [NetEncoder ["AudioSpectrogram"] [a]], 
DataReversed > (True, False}], "AudioSpectrogram"] 
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n7411. res = AudioBlockMap [LowpassFilter [#PowerSpectrum, .4] 4, AudioNormalize@a, . 05]; 
MatrixPlot[Log@res["Values"] ] 
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і(743- dBrms = AudioBlockMap[20 Log10 [Sqrt@Mean[#‘2]] &, a, 
(Quantity[50, "Milliseconds"], Quantity[5, "Milliseconds"]}]; 
ListLinePlot [dBrms] 
Histogram[dBrms, 40] 
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AudioLocalMeasurements[a, {"Power", "RMSAmplitude"}, Association]; 
ListLinePlot[%, PlotRange - All] 
AudioLocalMeasurements[a, {"SpectralCrest"}] // ListLinePlot 
AudioLocalMeasurements[a, {"SpectralRollOff"}] // ListLinePlot 
AudioLocalMeasurements[a, {"SpectralSlope"}] // ListLinePlot 
AudioLocalMeasurements[a, {"SpectralFlatness"}] // ListLinePlot 
AudioLocalMeasurements [a, 
("SpectralCentroid", "SpectralKurtosis", "SpectralSpread"}] // 

ListLinePlot[#, PlotRange > All] & 
AudioLocalMeasurements[a, "FundamentalFrequency"] // ListLinePlot 
AudioLocalMeasurements[a, "HighFrequencyContent"] // 

ListLinePlot[#, PlotRange - All] & 

ListLinePlot [AudioLocalMeasurements[a, {"Mean", "Median", "StandardDeviation"}] ] 
ListLinePlot [AudioLocalMeasurements[a, {"Мах", "MaxAbs", "Min", "MinAbs"}] ] 
ListLinePlot [AudioLocalMeasurements[a, "TemporalCentroid"] , PlotRange > All] 
ListLinePlot [AudioLocalMeasurements[a, "ZeroCrossingRate"] , PlotRange > All] 
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In[758]:- 
AudioLocalMeasurements[a, "LPC"]["Values"] // Transpose // ArrayPlot 
AudioLocalMeasurements[a, {"LPC", 66)] ["Ма1иеѕ"] // Transpose // ArrayPlot 


formants = AudioLocalMeasurements[a, "Formants"]; 
Show[Spectrogram[a, AspectRatio > 1, PlotRange > (All, (0, 7000}}], 
formants // ListLinePlot] 


formants = AudioLocalMeasurements[a, {"Formants", 2, 40)1; 
Show[Spectrogram[a, AspectRatio > 1, PlotRange > (All, (0, 7000}}], 
formants // ListLinePlot] 
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п764:= AudioLocalMeasurements[a, "Entropy"] // ListLinePlot[#, PlotRange > All] & 
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nes- AudioLocalMeasurements[a, "МЕСС"] ["Values"] // Transpose // ListDensityPlot 
AudioLocalMeasurements[a, {"MFCC", 30, 40, 
Quantity[40, "Hertz"], Quantity[30000, ("Radians") / ("Seconds") ]}][ 
"Values"] // Transpose // ListDensityPlot 


22 | Sphere.nb 


Out[765]= 














о О 777 77777 7 7 4" 


и 


_ Мод ићи 














24 | Sphere.nb 


In[767]:= 
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Rescale /@ AudioLocalMeasurements[a, {"ComplexDomainDistance", 
"ModifiedKullbackLeibler", "PhaseDeviation", "SpectralFlux"}] // ListLinePlot 
ListLinePlot [AudioLocalMeasurements[a, "Novelty"], PlotRange > All] 
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nr6g:= properties = {"ComplexDomainDistance", "HighFrequencyContent", 
"ModifiedKullbackLeibler", "Novelty", "PhaseDeviation"} ; 
detectionFunctions = Rescale /@AudioLocalMeasurements | 
a, properties, PartitionGranularity > {.02, .005)1; 
peaks = FindPeaks[filteredDetectionFunction, 0, 0, 0.07]; 
ListLinePlot[filteredDetectionFunction, PlotRange - All, 
Epilog > (Red, PointSize[0.005], Point[peaks // Normal] }] 
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n7723- AudioPlot[a, 
ColorFunction > Function[{x, у}, If [AnyTrue[peaks["Times"], Abs[x -#] < .015 8], 
RGBColor [1, 0.2, 0.2], RGBColor [0.368417, 0.506779, 0.709798]]], 
PlotRange - (All, All), FillingStyle > Opacity[.9]] 
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n773- mfcc = AudioLocalMeasurements [AudioResample[a, 11025], 
"LPC", PartitionGranularity > {.5, .25}]["Values"]; 
MatrixPlot [DistanceMatrix[mfcc], 
DataRange > ((0, QuantityMagnitude [Duratione@a, "s"]}, 
(0, QuantityMagnitude [Duratione@a, "5"1)), 
ImageSize > 800, FrameTicks > (Automatic, Automatic)] 
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іі775:- Spectrogram[a] 
Spectrogram[a, Method > "MelFrequency"] 
Spectrogram[a, 512, 64] 
Spectrogram[a, 512, 64, HammingWindow] 
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іі779:- Cepstrogran [a] 
Cepstrogram[a, 256, 64, HammingWindow] 
Cepstrogram[a, 2048, 64, PlotRange > (All, (0, .008}, All}, 
AspectRatio > 1/3, ColorFunction > (Blend[((0, Black}, (.2, White}}, 8] &) ] 
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ттвгі- Periodogram [a] 
Periodogram[a, 64, 32, PlotRange > All] 
Periodogram[a, 64, 32, HammingWindow, 256, PlotRange - All] 
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In[785]:= 


AudioIdentify[a, All, 5] 


Out[785]- { radio |, | silence } 


